home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / hf / dsp / source / pam.lst < prev    next >
Encoding:
File List  |  1991-06-28  |  1.5 KB  |  64 lines
  1.  
  2. Motorola DSP56000 Macro Cross Assembler  Version 2.02  91-06-28  16:37:46  pam.asm  Page 1
  3.  
  4.  
  5.  
  6. 1                                  page    132,63,1,1
  7. 2                                  opt     rc
  8. 3      
  9. 4         P:0000                   org     p:
  10. 5      
  11. 6      
  12. 7                        ; first order high-pass IIR filter
  13. 8                        ; input in a, output in a
  14. 9                        ; frq is -3dB point (fc/fs)
  15. 10                       hpass     macro   frq,store
  16. 11   m                             move    x:<store,x1
  17. 12   m                             move    a,x:<store
  18. 13   m                             sub     x1,a      x:<store+1,x0
  19. 14   m                             move    #-1.0/@cos(6.28319*frq)*(1.0-@sin(6.28319*frq)),x1
  20. 15   m                             macr    -x0,x1,a
  21. 16   m                             move    a,x:<store+1
  22. 17   m                             endm
  23. 18     
  24. 19     
  25. 20        P:0000 200013  loop      clr     a
  26. 21        P:0001 5CF000            move                          y:$ffe0,a1
  27.                  00FFE0
  28. 22                                 hpass   90.0/19200.0,rdc
  29. 29        P:000A 5E7000            move                          a,y:$ffe0
  30.                  00FFE0
  31. 30        P:000C 0C0000            jmp     <loop
  32. 31     
  33. 32        X:0000                   org     x:
  34. 33     
  35. 34        X:0000 000000  rdc       ds      2         ; running DC-level
  36. 35     
  37. 36                                 end
  38. 0    Errors
  39. 0    Warnings
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.